﻿Imports Capa_de_Acceso_a_Datos
Public Class frmListadoRecetas
    Public PresentacionId As Integer
    Public ObraSocialXPlanId As Integer
    Public FarmaciaId As Integer
    Public tablaMedicamentos As DataTable

    Private Sub ListadoRecetas_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        frmConsultarPresentaciones.Show()
    End Sub

    Private Sub ListadoRecetas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With dgvRecetas
            ' alternar color de filas  
            .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite
            .DefaultCellStyle.BackColor = Color.Beige
        End With

        tablaMedicamentos = MedicamentoDAO.obtenerMedicamentos(0)
        cargarGrilla()
    End Sub

    Public Sub cargarGrilla()
        dgvRecetas.DataSource = RecetaDAO.grillaRecetasDePresentacion(PresentacionId)
        dgvRecetas.Refresh()
    End Sub

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Me.Visible = False

        ObraSocialXPlanId = PresentacionDAO.obtenerPresentaciones(PresentacionId).Rows(0)("ObraSocialXPlanId")
        Select Case PantallaXObraSocialDAO.obtenerPantalla(ObraSocialXPlanId).Rows(0)("PantallaNombre")
            Case "frmCargaRecetarioSolidario"
                frmCargaRecetarioSolidario.farmaciaId = FarmaciaId
                frmCargaRecetarioSolidario.obraSocialXPlanId = ObraSocialXPlanId
                frmCargaRecetarioSolidario.presentacionId = PresentacionId
                'Muestro el formulario
                frmCargaRecetarioSolidario.ShowDialog()
            Case "frmCargaPAMI"
                frmCargaPAMI.farmaciaId = FarmaciaId
                frmCargaPAMI.obraSocialXPlanId = ObraSocialXPlanId
                frmCargaPAMI.presentacionId = PresentacionId
                'Muestro el formulario
                frmCargaPAMI.ShowDialog()
            Case "CargarReceta"
                frmCargarReceta.farmaciaId = FarmaciaId
                frmCargarReceta.obraSocialXPlanId = ObraSocialXPlanId
                frmCargarReceta.presentacionId = PresentacionId
                'Muestro el formulario
                frmCargarReceta.ShowDialog()
        End Select
        
    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        If dgvRecetas.SelectedRows.Count > 0 Then
            eliminar(dgvRecetas.SelectedRows(0).Cells("RecetaId").Value)
        End If
    End Sub

    Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
        If dgvRecetas.SelectedRows.Count > 0 Then
            RecetaDAO.excluirReceta(dgvRecetas.SelectedRows(0).Cells("RecetaId").Value)
            MsgBox("La receta ha sido excluida de la presentación", MsgBoxStyle.Information, "Atención")
            'TODO Manejar exclusión 
        End If
    End Sub

    Private Sub eliminar(ByVal RecetaId As Integer)
        RecetaDAO.eliminarReceta(RecetaId)
        cargarGrilla()
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        tablaMedicamentos = Nothing
        frmConsultarPresentaciones.Show()
        Me.Dispose()
    End Sub

End Class